100 REM SAVE"0:18-0 UN-SCREW",8
105 Z$=CHR$(0)
110 OPEN 15,8,15: OPEN 5,8,5,"#0"
115 PRINT#15,"U1:"5;0;18;0: REM * READ IN TRACK 18, SECTOR 0
120 PRINT#15,"M-R"CHR$(0)CHR$(3)CHR$(3): REM * PEEK ABOUT IN RAM
125 FOR X=0 TO 2: GET#15,A$: PRINT 300+X;ASC(A$+Z$): NEXT X
130 INPUT "** UPDATE RAM (Y/N) ";SR$: IF SR$<>"Y" THEN 160
135 PRINT#15,"M-W"CHR$(0)CHR$(3)CHR$(3)CHR$(18)CHR$(1)CHR$(65)
140 PRINT#15,"M-R"CHR$(0)CHR$(3)CHR$(3)
145 FOR X=0 TO 2: GET#15,A$: PRINT 300+X;ASC(A$+Z$): NEXT X
150 INPUT "** WRITE BACK BLOCK (Y/N) ";WB$: IF WB$<>"Y" THEN 160
155 PRINT#15,"U2:"5;0;18;0: REM * WRITE BACK TO TRACK 18, SECTOR 0
160 CLOSE5: CLOSE15: END